perm filename FOO.ALP[AL,HE] blob sn#286866 filedate 1977-06-03 generic text, type T, neo UTF8
		;Start of program
	XPROG
		;BLOCK
	XJUMP
	L1
		;Condition monitor checker
L2:	XPUSH
	L3
	XVMKFRC
	XTFRCST
	404
	XPUSH
	L4
	XCMFORCE
		;Stop
	XSTOP
	4
	XCMDONE
		;Create condition monitor
L1:	XCMMAK
	36
	3
	L2
	100004
		;Move
		;Enable condition monitor
	XCMENBL
	36
	XMOVE
	L5
	4
		;Disable condition monitor
	XCMDSBL
	36
		;Block end cleanup
	XCMDEST
	36
	0
		;End of BLOCK
	XENDP
		;End of program